/ MacFormat 1996 July / macformat-039.iso / Shareware City / Developers / LogoMation 1.1.1 / Examples / rainbow fractals

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 72 61 69 6e 62 6f | 77 20 66 72 61 63 74 61 |..rainbo|w fracta|
|00000010| 6c 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ls......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 55 56 74 78 55 56 74 | 6c 01 00 00 00 00 00 00 |.UVtxUVt|l.......|
|00000050| 00 00 00 00 00 08 f8 00 | 00 01 73 a8 ac c5 e6 ac |........|..s.....|
|00000060| 92 e8 86 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bd df 00 00 |........|........|
|00000080| 2f 2f 20 44 72 61 67 6f | 6e 20 66 72 61 63 74 61 |// Drago|n fracta|
|00000090| 6c 73 2c 20 77 69 74 68 | 20 63 6f 6c 6f 72 2d 63 |ls, with| color-c|
|000000a0| 6f 64 65 64 20 70 61 72 | 61 6d 65 74 65 72 0d 2f |oded par|ameter./|
|000000b0| 2f 20 62 61 73 65 64 20 | 6f 6e 20 50 6c 61 74 65 |/ based |on Plate|
|000000c0| 20 32 20 69 6e 20 22 43 | 6c 61 73 73 69 63 73 20 | 2 in "C|lassics |
|000000d0| 6f 6e 20 46 72 61 63 74 | 61 6c 73 22 2c 20 47 2e |on Fract|als", G.|
|000000e0| 20 45 64 67 61 72 0d 0d | 2f 2f 20 53 65 74 20 74 | Edgar..|// Set t|
|000000f0| 68 65 20 73 63 72 65 65 | 6e 20 74 6f 20 6d 69 6c |he scree|n to mil|
|00000100| 6c 69 6f 6e 73 20 6f 66 | 20 63 6f 6c 6f 72 73 20 |lions of| colors |
|00000110| 66 6f 72 20 62 65 73 74 | 20 72 65 73 75 6c 74 73 |for best| results|
|00000120| 2e 2e 2e 0d 2f 2f 20 54 | 68 65 20 6c 69 6d 69 74 |....// T|he limit|
|00000130| 20 6f 6e 20 66 75 6e 63 | 74 69 6f 6e 20 6e 65 73 | on func|tion nes|
|00000140| 74 69 6e 67 20 6d 61 79 | 20 6e 65 65 64 20 74 6f |ting may| need to|
|00000150| 20 62 65 20 69 6e 63 72 | 65 61 73 65 64 2e 0d 0d | be incr|eased...|
|00000160| 2f 2f 20 4d 61 6b 65 20 | 65 70 73 20 73 6d 61 6c |// Make |eps smal|
|00000170| 6c 65 72 20 66 6f 72 20 | 67 72 65 61 74 65 72 20 |ler for |greater |
|00000180| 64 65 74 61 69 6c 2c 20 | 6c 61 72 67 65 72 20 66 |detail, |larger f|
|00000190| 6f 72 20 66 61 73 74 65 | 72 20 64 72 61 77 69 6e |or faste|r drawin|
|000001a0| 67 2e 0d 65 70 73 3d 32 | 20 20 20 2f 2f 20 6f 72 |g..eps=2|   // or|
|000001b0| 69 67 20 36 0d 0d 61 61 | 3d 36 35 35 33 36 0d 62 |ig 6..aa|=65536.b|
|000001c0| 62 3d 33 32 37 36 37 0d | 73 71 71 3d 73 71 72 74 |b=32767.|sqq=sqrt|
|000001d0| 28 32 29 0d 75 70 0d 67 | 6f 74 6f 20 2d 31 38 30 |(2).up.g|oto -180|
|000001e0| 2c 31 35 30 2c 2d 39 30 | 0d 64 6f 77 6e 0d 77 69 |,150,-90|.down.wi|
|000001f0| 64 74 68 20 31 30 0d 70 | 72 69 6e 74 20 22 20 5f |dth 10.p|rint " _|
|00000200| 5f 20 22 20 2e 20 20 30 | 0d 72 65 70 65 61 74 20 |_ " .  0|.repeat |
|00000210| 74 2c 31 2c 31 30 0d 20 | 20 20 20 73 65 67 6d 65 |t,1,10. |   segme|
|00000220| 6e 74 28 33 30 2c 28 74 | 2d 31 29 2f 31 30 2c 74 |nt(30,(t|-1)/10,t|
|00000230| 2f 31 30 29 0d 20 20 20 | 20 63 6f 6c 6f 72 20 30 |/10).   | color 0|
|00000240| 2c 30 2c 30 0d 20 20 20 | 20 70 72 69 6e 74 20 22 |,0,0.   | print "|
|00000250| 20 5f 5f 20 22 20 2e 20 | 28 74 2f 31 30 29 0d 75 | __ " . |(t/10).u|
|00000260| 70 0d 67 6f 74 6f 20 2d | 31 38 30 2c 2d 31 35 30 |p.goto -|180,-150|
|00000270| 2c 39 30 0d 64 6f 77 6e | 0d 63 6f 6c 6f 72 20 36 |,90.down|.color 6|
|00000280| 35 35 33 35 2c 36 35 35 | 33 35 2c 36 35 35 33 35 |5535,655|35,65535|
|00000290| 0d 66 6f 72 77 61 72 64 | 20 30 0d 0d 77 69 64 74 |.forward| 0..widt|
|000002a0| 68 20 65 70 73 2a 30 2e | 38 0d 75 70 0d 67 6f 74 |h eps*0.|8.up.got|
|000002b0| 6f 20 2d 33 30 2c 31 30 | 30 2c 30 0d 64 6f 77 6e |o -30,10|0,0.down|
|000002c0| 0d 6c 65 76 79 28 31 30 | 30 2c 30 2c 31 29 0d 75 |.levy(10|0,0,1).u|
|000002d0| 70 0d 67 6f 74 6f 20 2d | 35 35 2c 2d 35 30 2c 30 |p.goto -|55,-50,0|
|000002e0| 0d 64 6f 77 6e 0d 68 65 | 69 67 68 77 61 79 28 31 |.down.he|ighway(1|
|000002f0| 35 30 2c 31 2c 30 2c 31 | 29 0d 75 70 0d 67 6f 74 |50,1,0,1|).up.got|
|00000300| 6f 20 2d 31 30 35 2c 2d | 31 39 30 2c 30 0d 64 6f |o -105,-|190,0.do|
|00000310| 77 6e 0d 6b 6f 63 68 28 | 32 35 30 2c 30 2c 31 29 |wn.koch(|250,0,1)|
|00000320| 0d 0d 2f 2f 20 74 6f 63 | 6f 6c 6f 72 28 6d 75 29 |..// toc|olor(mu)|
|00000330| 20 3a 20 63 68 61 6e 67 | 65 20 74 6f 20 74 68 65 | : chang|e to the|
|00000340| 20 63 6f 6c 6f 72 20 66 | 6f 72 20 70 61 72 61 6d | color f|or param|
|00000350| 65 74 65 72 20 6d 75 0d | 2f 2f 20 41 73 20 6d 75 |eter mu.|// As mu|
|00000360| 20 72 75 6e 73 20 66 72 | 6f 6d 20 30 20 74 6f 20 | runs fr|om 0 to |
|00000370| 31 2c 20 74 68 65 20 63 | 6f 6c 6f 72 20 72 75 6e |1, the c|olor run|
|00000380| 73 20 61 72 6f 75 6e 64 | 20 74 68 65 20 63 6f 6c |s around| the col|
|00000390| 6f 72 20 63 69 72 63 6c | 65 2c 0d 2f 2f 20 66 72 |or circl|e,.// fr|
|000003a0| 6f 6d 20 72 65 64 20 62 | 61 63 6b 20 74 6f 20 72 |om red b|ack to r|
|000003b0| 65 64 0d 66 75 6e 63 74 | 69 6f 6e 20 74 6f 63 6f |ed.funct|ion toco|
|000003c0| 6c 6f 72 28 6d 75 29 0d | 20 20 20 20 63 6f 6c 6f |lor(mu).|    colo|
|000003d0| 72 20 6d 63 6f 73 28 6d | 75 2a 33 36 30 29 2c 6d |r mcos(m|u*360),m|
|000003e0| 63 6f 73 28 31 32 30 2b | 6d 75 2a 33 36 30 29 2c |cos(120+|mu*360),|
|000003f0| 6d 63 6f 73 28 32 34 30 | 2b 6d 75 2a 33 36 30 29 |mcos(240|+mu*360)|
|00000400| 0d 66 75 6e 63 74 69 6f | 6e 20 6d 63 6f 73 28 74 |.functio|n mcos(t|
|00000410| 68 65 74 61 29 0d 20 20 | 20 20 6d 63 6f 73 72 65 |heta).  |  mcosre|
|00000420| 74 3d 62 62 2b 61 61 2a | 63 6f 73 28 74 68 65 74 |t=bb+aa*|cos(thet|
|00000430| 61 29 0d 20 20 20 20 69 | 66 20 6d 63 6f 73 72 65 |a).    i|f mcosre|
|00000440| 74 20 3c 20 30 0d 20 20 | 20 20 20 20 20 20 72 65 |t < 0.  |      re|
|00000450| 74 75 72 6e 20 30 0d 20 | 20 20 20 69 66 20 6d 63 |turn 0. |   if mc|
|00000460| 6f 73 72 65 74 20 3e 20 | 36 35 35 33 35 0d 20 20 |osret > |65535.  |
|00000470| 20 20 20 20 20 20 72 65 | 74 75 72 6e 20 36 35 35 |      re|turn 655|
|00000480| 33 35 0d 20 20 20 20 72 | 65 74 75 72 6e 20 6d 63 |35.    r|eturn mc|
|00000490| 6f 73 72 65 74 0d 20 20 | 20 20 0d 66 75 6e 63 74 |osret.  |  .funct|
|000004a0| 69 6f 6e 20 6b 6f 63 68 | 28 73 69 7a 65 2c 73 74 |ion koch|(size,st|
|000004b0| 61 72 74 63 6f 6c 6f 72 | 2c 65 6e 64 63 6f 6c 6f |artcolor|,endcolo|
|000004c0| 72 29 0d 20 20 20 20 69 | 66 20 73 69 7a 65 20 3c |r).    i|f size <|
|000004d0| 20 65 70 73 0d 20 20 20 | 20 20 20 20 20 74 6f 63 | eps.   |     toc|
|000004e0| 6f 6c 6f 72 28 73 74 61 | 72 74 63 6f 6c 6f 72 29 |olor(sta|rtcolor)|
|000004f0| 0d 20 20 20 20 20 20 20 | 20 66 6f 72 77 61 72 64 |.       | forward|
|00000500| 20 73 69 7a 65 0d 20 20 | 20 20 20 20 20 20 72 65 | size.  |      re|
|00000510| 74 75 72 6e 0d 20 20 20 | 20 6b 6f 63 68 28 73 69 |turn.   | koch(si|
|00000520| 7a 65 2f 33 2c 73 74 61 | 72 74 63 6f 6c 6f 72 2c |ze/3,sta|rtcolor,|
|00000530| 30 2e 37 35 2a 73 74 61 | 72 74 63 6f 6c 6f 72 2b |0.75*sta|rtcolor+|
|00000540| 30 2e 32 35 2a 65 6e 64 | 63 6f 6c 6f 72 29 0d 20 |0.25*end|color). |
|00000550| 20 20 20 6c 65 66 74 20 | 36 30 0d 20 20 20 20 6b |   left |60.    k|
|00000560| 6f 63 68 28 73 69 7a 65 | 2f 33 2c 30 2e 37 35 2a |och(size|/3,0.75*|
|00000570| 73 74 61 72 74 63 6f 6c | 6f 72 2b 30 2e 32 35 2a |startcol|or+0.25*|
|00000580| 65 6e 64 63 6f 6c 6f 72 | 2c 30 2e 35 2a 73 74 61 |endcolor|,0.5*sta|
|00000590| 72 74 63 6f 6c 6f 72 2b | 30 2e 35 2a 65 6e 64 63 |rtcolor+|0.5*endc|
|000005a0| 6f 6c 6f 72 29 0d 20 20 | 20 20 72 69 67 68 74 20 |olor).  |  right |
|000005b0| 31 32 30 0d 20 20 20 20 | 6b 6f 63 68 28 73 69 7a |120.    |koch(siz|
|000005c0| 65 2f 33 2c 30 2e 35 2a | 73 74 61 72 74 63 6f 6c |e/3,0.5*|startcol|
|000005d0| 6f 72 2b 30 2e 35 2a 65 | 6e 64 63 6f 6c 6f 72 2c |or+0.5*e|ndcolor,|
|000005e0| 30 2e 32 35 2a 73 74 61 | 72 74 63 6f 6c 6f 72 2b |0.25*sta|rtcolor+|
|000005f0| 30 2e 37 35 2a 65 6e 64 | 63 6f 6c 6f 72 29 0d 20 |0.75*end|color). |
|00000600| 20 20 20 6c 65 66 74 20 | 36 30 0d 20 20 20 20 6b |   left |60.    k|
|00000610| 6f 63 68 28 73 69 7a 65 | 2f 33 2c 30 2e 32 35 2a |och(size|/3,0.25*|
|00000620| 73 74 61 72 74 63 6f 6c | 6f 72 2b 30 2e 37 35 2a |startcol|or+0.75*|
|00000630| 65 6e 64 63 6f 6c 6f 72 | 2c 65 6e 64 63 6f 6c 6f |endcolor|,endcolo|
|00000640| 72 29 0d 20 20 20 20 0d | 66 75 6e 63 74 69 6f 6e |r).    .|function|
|00000650| 20 6c 65 76 79 28 73 69 | 7a 65 2c 73 74 61 72 74 | levy(si|ze,start|
|00000660| 63 6f 6c 6f 72 2c 65 6e | 64 63 6f 6c 6f 72 29 0d |color,en|dcolor).|
|00000670| 20 20 20 20 69 66 20 73 | 69 7a 65 20 3c 20 65 70 |    if s|ize < ep|
|00000680| 73 0d 20 20 20 20 20 20 | 20 20 74 6f 63 6f 6c 6f |s.      |  tocolo|
|00000690| 72 28 73 74 61 72 74 63 | 6f 6c 6f 72 29 0d 20 20 |r(startc|olor).  |
|000006a0| 20 20 20 20 20 20 66 6f | 72 77 61 72 64 20 73 69 |      fo|rward si|
|000006b0| 7a 65 0d 20 20 20 20 20 | 20 20 20 72 65 74 75 72 |ze.     |   retur|
|000006c0| 6e 0d 20 20 20 20 6c 65 | 66 74 20 34 35 0d 20 20 |n.    le|ft 45.  |
|000006d0| 20 20 6c 65 76 79 28 73 | 69 7a 65 2f 73 71 71 2c |  levy(s|ize/sqq,|
|000006e0| 73 74 61 72 74 63 6f 6c | 6f 72 2c 28 73 74 61 72 |startcol|or,(star|
|000006f0| 74 63 6f 6c 6f 72 2b 65 | 6e 64 63 6f 6c 6f 72 29 |tcolor+e|ndcolor)|
|00000700| 2f 32 29 0d 20 20 20 20 | 72 69 67 68 74 20 39 30 |/2).    |right 90|
|00000710| 0d 20 20 20 20 6c 65 76 | 79 28 73 69 7a 65 2f 73 |.    lev|y(size/s|
|00000720| 71 71 2c 28 73 74 61 72 | 74 63 6f 6c 6f 72 2b 65 |qq,(star|tcolor+e|
|00000730| 6e 64 63 6f 6c 6f 72 29 | 2f 32 2c 65 6e 64 63 6f |ndcolor)|/2,endco|
|00000740| 6c 6f 72 29 0d 20 20 20 | 20 6c 65 66 74 20 34 35 |lor).   | left 45|
|00000750| 0d 20 20 20 20 0d 66 75 | 6e 63 74 69 6f 6e 20 68 |.    .fu|nction h|
|00000760| 65 69 67 68 77 61 79 28 | 73 69 7a 65 2c 70 61 72 |eighway(|size,par|
|00000770| 69 74 79 2c 73 74 61 72 | 74 63 6f 6c 6f 72 2c 65 |ity,star|tcolor,e|
|00000780| 6e 64 63 6f 6c 6f 72 29 | 0d 20 20 20 20 69 66 20 |ndcolor)|.    if |
|00000790| 73 69 7a 65 20 3c 20 65 | 70 73 0d 20 20 20 20 20 |size < e|ps.     |
|000007a0| 20 20 20 74 6f 63 6f 6c | 6f 72 28 73 74 61 72 74 |   tocol|or(start|
|000007b0| 63 6f 6c 6f 72 29 0d 20 | 20 20 20 20 20 20 20 66 |color). |       f|
|000007c0| 6f 72 77 61 72 64 20 73 | 69 7a 65 0d 20 20 20 20 |orward s|ize.    |
|000007d0| 20 20 20 20 72 65 74 75 | 72 6e 0d 20 20 20 20 6c |    retu|rn.    l|
|000007e0| 65 66 74 20 34 35 2a 70 | 61 72 69 74 79 0d 20 20 |eft 45*p|arity.  |
|000007f0| 20 20 68 65 69 67 68 77 | 61 79 28 73 69 7a 65 2f |  heighw|ay(size/|
|00000800| 73 71 71 2c 31 2c 73 74 | 61 72 74 63 6f 6c 6f 72 |sqq,1,st|artcolor|
|00000810| 2c 28 73 74 61 72 74 63 | 6f 6c 6f 72 2b 65 6e 64 |,(startc|olor+end|
|00000820| 63 6f 6c 6f 72 29 2f 32 | 29 0d 20 20 20 20 72 69 |color)/2|).    ri|
|00000830| 67 68 74 20 39 30 2a 70 | 61 72 69 74 79 0d 20 20 |ght 90*p|arity.  |
|00000840| 20 20 68 65 69 67 68 77 | 61 79 28 73 69 7a 65 2f |  heighw|ay(size/|
|00000850| 73 71 71 2c 2d 31 2c 28 | 73 74 61 72 74 63 6f 6c |sqq,-1,(|startcol|
|00000860| 6f 72 2b 65 6e 64 63 6f | 6c 6f 72 29 2f 32 2c 65 |or+endco|lor)/2,e|
|00000870| 6e 64 63 6f 6c 6f 72 29 | 0d 20 20 20 20 6c 65 66 |ndcolor)|.    lef|
|00000880| 74 20 34 35 2a 70 61 72 | 69 74 79 0d 0d 66 75 6e |t 45*par|ity..fun|
|00000890| 63 74 69 6f 6e 20 73 65 | 67 6d 65 6e 74 28 73 69 |ction se|gment(si|
|000008a0| 7a 65 2c 73 74 61 72 74 | 63 6f 6c 6f 72 2c 65 6e |ze,start|color,en|
|000008b0| 64 63 6f 6c 6f 72 29 0d | 20 20 20 20 69 66 20 73 |dcolor).|    if s|
|000008c0| 69 7a 65 20 3c 20 32 0d | 20 20 20 20 20 20 20 20 |ize < 2.|        |
|000008d0| 74 6f 63 6f 6c 6f 72 28 | 73 74 61 72 74 63 6f 6c |tocolor(|startcol|
|000008e0| 6f 72 29 0d 20 20 20 20 | 20 20 20 20 66 6f 72 77 |or).    |    forw|
|000008f0| 61 72 64 20 73 69 7a 65 | 0d 20 20 20 20 20 20 20 |ard size|.       |
|00000900| 20 72 65 74 75 72 6e 0d | 20 20 20 20 73 65 67 6d | return.|    segm|
|00000910| 65 6e 74 28 73 69 7a 65 | 2f 32 2c 73 74 61 72 74 |ent(size|/2,start|
|00000920| 63 6f 6c 6f 72 2c 28 73 | 74 61 72 74 63 6f 6c 6f |color,(s|tartcolo|
|00000930| 72 2b 65 6e 64 63 6f 6c | 6f 72 29 2f 32 29 0d 20 |r+endcol|or)/2). |
|00000940| 20 20 20 73 65 67 6d 65 | 6e 74 28 73 69 7a 65 2f |   segme|nt(size/|
|00000950| 32 2c 28 73 74 61 72 74 | 63 6f 6c 6f 72 2b 65 6e |2,(start|color+en|
|00000960| 64 63 6f 6c 6f 72 29 2f | 32 2c 65 6e 64 63 6f 6c |dcolor)/|2,endcol|
|00000970| 6f 72 29 0d 20 20 20 20 | 00 00 00 00 00 00 00 00 |or).    |........|
|00000980| 00 00 01 00 00 00 01 1d | 00 00 00 1d 00 00 00 56 |........|.......V|
|00000990| 01 00 00 0a 1e 2e 03 00 | 00 00 00 01 2d 78 e8 63 |........|....-x.c|
|000009a0| 72 5c 01 03 18 12 1c 2e | 00 13 01 2e 2e 4f 55 cc |r\......|.....OU.|
|000009b0| 10 72 61 69 6e 62 6f 77 | 20 66 72 61 63 74 61 6c |.rainbow| fractal|
|000009c0| 73 61 02 00 00 00 55 56 | 74 78 55 56 74 6c 01 00 |sa....UV|txUVtl..|
|000009d0| 00 00 55 56 74 78 55 56 | 74 6c 01 00 00 b4 00 00 |..UVtxUV|tl......|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 a8 ac c5 e6 00 00 | 08 f8 00 00 01 73 10 06 |........|.....s..|
|00000a00| 56 90 60 4c 01 ff 82 cc | 96 12 4f ef 00 0c 11 66 |V.`L....|..O....f|
|00000a10| 10 57 72 50 01 04 e2 8a | 8d 67 01 66 a0 96 73 01 |.WrP....|.g.f..s.|
|00000a20| 18 c0 ca 13 4e 5e 4e 75 | 4e 56 11 fd f0 5c 01 07 |....N^Nu|NV...\..|
|00000a30| 18 8c 4d 01 26 6d 11 fe | 0c 51 7e 12 00 92 4e ad |..M.&m..|.Q~...N.|
|00000a40| 01 2f ea 56 25 12 01 64 | 4e 91 67 de b4 03 b2 80 |./.V%..d|N.g.....|
|00000a50| 57 c0 02 40 66 78 01 1c | 00 76 9a 14 42 10 48 78 |W..@fx..|.v..B.Hx|
|00000a60| 0b ea 48 6e 9a 25 12 00 | 54 4e 91 76 11 fe 00 11 |..Hn.%..|TN.v....|
|00000a70| 42 10 12 20 54 0c a8 02 | 43 4c 49 50 11 00 54 12 |B.. T...|CLIP..T.|
|00000a80| 00 00 00 08 00 2c 00 0a | 01 d5 01 db 00 00 00 08 |.....,..|........|
|00000a90| 00 2b 00 b3 01 cf 02 76 | 00 00 00 01 00 00 00 01 |.+.....v|........|
|00000aa0| 00 00 00 01 1d 00 00 00 | 1d 00 00 00 56 02 2c fe |........|....V.,.|
|00000ab0| 98 1a 72 00 00 00 1c 00 | 52 00 01 77 53 69 5a 00 |..r.....|R..wSiZ.|
|00000ac0| 01 00 12 77 32 72 6e 00 | 00 00 2a 01 2c 00 00 00 |...w2rn.|..*.,...|
|00000ad0| 00 00 00 02 33 7e 24 01 | 90 00 02 00 00 00 0c 02 |....3~$.|........|
|00000ae0| 33 82 c0 00 5a ff ff 00 | 00 00 18 00 00 00 00 01 |3...Z...|........|
|00000af0| 45 01 52 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |E.R.....|........|
+--------+-------------------------+-------------------------+--------+--------+